Public Class Profesor
    Private mnombre As String = ""
    Private mmail As String = ""
    Private mcodigo As String = ""

    Public Sub New()
    End Sub

    Public Sub New(ByVal pcodigo As String, ByVal pnombre As String, ByVal pmail As String)
        Me.Mail = pmail
        Me.Nombre = pnombre
        Me.Codigo = pcodigo
    End Sub

    Public Property Nombre() As String
        Get
            Return mnombre
        End Get
        Set(ByVal Value As String)
            mnombre = Value
        End Set
    End Property

    Public Property Codigo() As String
        Get
            Return mcodigo
        End Get
        Set(ByVal Value As String)
            mcodigo = Value
        End Set
    End Property

    Public Property Mail() As String
        Get
            Return mmail
        End Get
        Set(ByVal Value As String)
            mmail = Value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Dim info As String = ""
        info = Me.Nombre
        info += Me.Mail
        info += Me.Codigo
        Return info
    End Function

End Class
